home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / wc_PushB.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  7.6 KB  |  187 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wc_PushB.c
  5. * RCS:          $Header: wc_PushB.c,v 1.3 91/03/14 03:14:57 mayer Exp $
  6. * Description:  XM_PUSH_BUTTON_WIDGET_CLASS/XM_PUSH_BUTTON_GADGET_CLASS
  7. * Author:       Niels Mayer, HPLabs
  8. * Created:      Sat Oct 28 04:22:22 1989
  9. * Modified:     Thu Oct  3 23:40:32 1991 (Niels Mayer) mayer@hplnpm
  10. * Language:     C
  11. * Package:      N/A
  12. * Status:       X11r5 contrib tape release
  13. *
  14. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. *
  17. * Permission to use, copy, modify, distribute, and sell this software and its
  18. * documentation for any purpose is hereby granted without fee, provided that
  19. * the above copyright notice appear in all copies and that both that
  20. * copyright notice and this permission notice appear in supporting
  21. * documentation, and that the name of Hewlett-Packard and David Betz not be
  22. * used in advertising or publicity pertaining to distribution of the software
  23. * without specific, written prior permission.  Hewlett-Packard and David Betz
  24. * make no representations about the suitability of this software for any
  25. * purpose. It is provided "as is" without express or implied warranty.
  26. *
  27. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  28. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  29. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  30. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  31. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  32. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  33. * PERFORMANCE OF THIS SOFTWARE.
  34. *
  35. * See ./winterp/COPYRIGHT for information on contacting the authors.
  36. * 
  37. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  38. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  39. *
  40. ********************************************************************************
  41. */
  42. static char rcs_identity[] = "@(#)$Header: wc_PushB.c,v 1.3 91/03/14 03:14:57 mayer Exp $";
  43.  
  44. #include <stdio.h>
  45. #include <Xm/Xm.h>
  46. #include <Xm/PushB.h>
  47. #include <Xm/PushBG.h>
  48. #include "winterp.h"
  49. #include "user_prefs.h"
  50. #include "xlisp/xlisp.h"
  51. #include "w_funtab.h"
  52.  
  53.  
  54. #ifdef WINTERP_MOTIF_11
  55. /******************************************************************************
  56.  * typedef struct
  57.  * {
  58.  *     int     reason;
  59.  *     XEvent  *event;
  60.  *     int        click_count;
  61.  * } XmPushButtonCallbackStruct;
  62.  ******************************************************************************/
  63. static void Lexical_Bindings_For_XmPushButtonCallbackStruct(bindings_list, lexical_env, cd, o_widget)
  64.      LVAL bindings_list;    /* a list of symbols to which values from XmPushButtonCallbackStruct are bound */
  65.      LVAL lexical_env;        
  66.      XmPushButtonCallbackStruct* cd;
  67.      LVAL o_widget;        /* XLTYPE_WIDGETOBJ */
  68. {
  69.   extern LVAL s_CALLBACK_WIDGET, s_CALLBACK_REASON, s_CALLBACK_XEVENT, s_CALLBACK_CLICK_COUNT; /* w_callbacks.c */
  70.   extern LVAL Wcb_Get_Callback_Reason_Symbol();    /* w_callbacks.c */
  71.   register LVAL s_bindname;
  72.  
  73.   for ( ; consp(bindings_list); bindings_list = cdr(bindings_list)) {
  74.  
  75.     s_bindname = car(bindings_list);
  76.  
  77.     if (s_bindname == s_CALLBACK_WIDGET) {
  78.       xlpbind(s_bindname, o_widget, lexical_env);
  79.     }
  80.     else if (s_bindname == s_CALLBACK_REASON) {
  81.       xlpbind(s_bindname, Wcb_Get_Callback_Reason_Symbol(cd->reason), lexical_env);
  82.     }
  83.     else if (s_bindname == s_CALLBACK_XEVENT) {
  84.       xlpbind(s_bindname, (cd->event) ? cv_xevent(cd->event) : NIL, lexical_env);
  85.     }
  86.     else if (s_bindname == s_CALLBACK_CLICK_COUNT) {
  87.       xlpbind(s_bindname, cvfixnum((FIXTYPE) (cd->click_count)), lexical_env);
  88.     }
  89.     else {
  90.       extern char temptext[];    /* from winterp.c */
  91.       sprintf(temptext,
  92.           "Unknown binding name in XmPushButtonCallbackStruct callback evaluator. Valid symbols are [%s %s %s %s].",
  93.           (char*) getstring(getpname(s_CALLBACK_WIDGET)),
  94.           (char*) getstring(getpname(s_CALLBACK_REASON)),
  95.           (char*) getstring(getpname(s_CALLBACK_XEVENT)),
  96.           (char*) getstring(getpname(s_CALLBACK_CLICK_COUNT)));
  97.       xlerror(temptext, s_bindname);
  98.     }
  99.   }
  100. }
  101.  
  102. /******************************************************************************
  103.  * This is called indirectly via XtAddCallback() for callbacks returning
  104.  * an XmPushButtonCallbackStruct as call_data.
  105.  ******************************************************************************/
  106. static void XmPushButtonCallbackStruct_Callbackproc(widget, client_data, call_data)
  107.      Widget    widget;
  108.      XtPointer client_data;
  109.      XtPointer call_data;
  110. {
  111.   extern void Wcb_Meta_Callbackproc(); /* w_callbacks.c */
  112.  
  113.   Wcb_Meta_Callbackproc(client_data, call_data,
  114.             Lexical_Bindings_For_XmPushButtonCallbackStruct,
  115.             NULL);
  116. }
  117.  
  118. /******************************************************************************
  119.  * Same as WIDGET_CLASS's :add_callback method except that this understands
  120.  * how to get values from the XmPushButtonCallbackStruct.
  121.  * Specifying one or more of the following symbols in the callback bindings 
  122.  * list will bind that symbol's value in the lexical environment of the callback:
  123.  * CALLBACK_WIDGET
  124.  * CALLBACK_REASON
  125.  * CALLBACK_XEVENT
  126.  * CALLBACK_CLICK_COUNT -- new for motif 1.1
  127.  ******************************************************************************/
  128. LVAL Xm_Push_Button_Widget_Class_Method_ADD_CALLBACK()
  129. {
  130.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  131.   return (Wcb_Meta_Method_Add_Callback(XmPushButtonCallbackStruct_Callbackproc, FALSE));
  132. }
  133.  
  134. /******************************************************************************
  135.  * Same as WIDGET_CLASS's :set_callback method except that this understands
  136.  * how to get values from the XmPushButtonCallbackStruct.
  137.  * Specifying one or more of the following symbols in the callback bindings 
  138.  * list will bind that symbol's value in the lexical environment of the callback:
  139.  * CALLBACK_WIDGET
  140.  * CALLBACK_REASON
  141.  * CALLBACK_XEVENT
  142.  * CALLBACK_CLICK_COUNT -- new for motif 1.1
  143.  ******************************************************************************/
  144. LVAL Xm_Push_Button_Widget_Class_Method_SET_CALLBACK()
  145. {
  146.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  147.   return (Wcb_Meta_Method_Add_Callback(XmPushButtonCallbackStruct_Callbackproc, TRUE));
  148. }
  149. #endif                /* WINTERP_MOTIF_11 */
  150.  
  151.  
  152. /******************************************************************************
  153.  *
  154.  ******************************************************************************/
  155. Wc_PushB_Init()
  156. {
  157.   LVAL o_XM_PUSH_BUTTON_WIDGET_CLASS;
  158.   LVAL o_XM_PUSH_BUTTON_GADGET_CLASS;
  159.   extern LVAL Wcls_Create_Subclass_Of_WIDGET_CLASS(); /* w_classes.c */
  160.   extern      xladdmsg();    /* from xlobj.c */
  161.  
  162.   o_XM_PUSH_BUTTON_WIDGET_CLASS =
  163.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_PUSH_BUTTON_WIDGET_CLASS",
  164.                      xmPushButtonWidgetClass);
  165.  
  166. #ifdef WINTERP_MOTIF_11
  167.   xladdmsg(o_XM_PUSH_BUTTON_WIDGET_CLASS, ":ADD_CALLBACK",
  168.            FTAB_Xm_Push_Button_Widget_Class_Method_ADD_CALLBACK);
  169.  
  170.   xladdmsg(o_XM_PUSH_BUTTON_WIDGET_CLASS, ":SET_CALLBACK",
  171.            FTAB_Xm_Push_Button_Widget_Class_Method_SET_CALLBACK);
  172. #endif                /* WINTERP_MOTIF_11 */
  173.  
  174.   o_XM_PUSH_BUTTON_GADGET_CLASS =
  175.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_PUSH_BUTTON_GADGET_CLASS",
  176.                      xmPushButtonGadgetClass);
  177.  
  178. #ifdef WINTERP_MOTIF_11
  179.   xladdmsg(o_XM_PUSH_BUTTON_GADGET_CLASS, ":ADD_CALLBACK",
  180.            FTAB_Xm_Push_Button_Widget_Class_Method_ADD_CALLBACK);
  181.   
  182.   xladdmsg(o_XM_PUSH_BUTTON_GADGET_CLASS, ":SET_CALLBACK",
  183.            FTAB_Xm_Push_Button_Widget_Class_Method_SET_CALLBACK);
  184. #endif                /* WINTERP_MOTIF_11 */
  185.  
  186. }
  187.